Sub muestra_On_Error()
On Error GoTo tratar_error
    Dim dividendo, divisor, resultado As Double
    dividendo = 10
    For divisor = 3 To -3 Step -1
        resultado = dividendo / divisor
        Debug.Print "(" & dividendo & ") / (" & divisor & ") = (" & resultado & ")"
seguir_dividiendo:
    Next divisor
    Exit Sub
tratar_error:
     Debug.Print "Error en divisor (" & divisor & ")"
    Resume seguir_dividiendo
End Sub
